home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d12 / cc02.arc / DIAGN.C < prev    next >
Encoding:
Text File  |  1986-03-15  |  422 b   |  21 lines
  1. /*  diagnostic - spit out error message  */
  2.  
  3. /*  copyright (c) 1982 by the Toolsmith  */
  4.  
  5. diagnostic(fatal, args)
  6. boolean fatal;
  7. char *args;
  8. {
  9.     extern unsigned lenstr(), write();
  10.     extern exit();
  11.     register char **a;
  12.  
  13.     if(fatal)
  14.         write(stderr, "PANIC!!! ", 9);
  15.     for(a = &args; *a != NULL; ++a)
  16.         write(stderr, *a, lenstr(*a));
  17.     write(stderr, "\n", 1);
  18.     if (fatal)
  19.         exit(NO);  /* error exit to OS */
  20. }
  21.